home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
turbovis
/
ned103.zip
/
CMDFILE.PAS
next >
Wrap
Pascal/Delphi Source File
|
1992-08-28
|
13KB
|
448 lines
{ FILE: cmdfile.pas}
unit CmdFile;
{ ----------------------------------------------------------- }
{ }
{ This unit contains all the command options for the program }
{ and all the status line hints for the program menu options. }
{ }
{ For the help commands, always ensure last item in a series }
{ of numbers is labeled "hc????_Items" and it equals last }
{ item in number series. }
{ }
{ Don't put anything else in here except key command codes! }
{ }
{ Note that in order for a command to be disabled, it MUST be }
{ in the range 100..255! }
{ }
{ Allowable Ranges Reserved Can Be Disabled }
{ }
{ 0..99 Yes Yes }
{ 100..255 No Yes }
{ 256..999 Yes No }
{ 1000..65535 No No }
{ }
{ Al Andersen - 02/29/92. }
{ }
{ ----------------------------------------------------------- }
{$D-}
interface
CONST
{------------------------------------- }
{ }
{ Menu commands. Space is provided }
{ if you want to add an "Extras" menu. }
{ If you use the extra's menu option, }
{ put your commands here. }
{ }
{ cm??? range = 100 through 109 }
{ hc??? range = 2000 through 2099 }
{ }
{ ------------------------------------ }
cmAbout = 100;
hcMenus = 2000;
hcExtra_Menu = 2001;
hcAbout = 2002;
hcExtra_Menu_Items = hcExtra_Menu;
{ ------------------------------- }
{ }
{ FILE Menu options. }
{ }
{ The following commands may be }
{ found in the NEWEDIT unit: }
{ }
{ cmSave }
{ cmSaveDone }
{ cmSaveAs }
{ }
{ The following commands may be }
{ found in the VIEWS unit: }
{ }
{ cmQuit }
{ }
{ cm??? range = 110 through 119 }
{ hc??? range = 2100 through 2199 }
{ }
{ ------------------------------- }
cmOpen = 110;
cmNew = 111;
cmChangeDir = 112;
cmShellToDos = 113;
hcFile_Menu = 2100;
hcOpen = 2101;
hcNew = 2102;
hcSave = 2103;
hcSaveDone = 2104;
hcSaveAs = 2105;
hcChangeDir = 2106;
hcShellToDos = 2107;
hcExit = 2108;
hcFile_Menu_Items = hcExit;
{ ------------------------------- }
{ }
{ EDIT Menu options. }
{ }
{ The following commands may be }
{ found in the VIEWS unit: }
{ }
{ cmUndo }
{ cmCopy }
{ cmCut }
{ cmPaste }
{ cmClear }
{ }
{ cm??? range = 120 through 129 }
{ hc??? range = 2200 through 2299 }
{ }
{ ------------------------------- }
cmClipboard = 120;
cmSpellCheck = 121;
hcEdit_Menu = 2200;
hcUndo = 2201;
hcCopy = 2202;
hcCut = 2203;
hcPaste = 2204;
hcClipboard = 2205;
hcClear = 2206;
hcSpellCheck = 2207;
hcEdit_Menu_Items = hcSpellCheck;
{ ------------------------------- }
{ }
{ SEARCH Menu options. }
{ }
{ The following commands may be }
{ found in the NEWEDIT unit: }
{ }
{ cmFind }
{ cmReplace }
{ cmSearchAgain }
{ }
{ cm??? range = 130 through 139 }
{ hc??? range = 2300 through 2399 }
{ }
{ ------------------------------- }
hcSearch_Menu = 2300;
hcFind = 2301;
hcReplace = 2302;
hcAgain = 2303;
hcSearch_Menu_Items = hcAgain;
{ ------------------------------- }
{ }
{ WINDOWS Menu options. }
{ }
{ The following commands may be }
{ found in the VIEWS unit: }
{ }
{ cmResize }
{ cmZoom }
{ cmNext }
{ cmPrev }
{ cmClose }
{ cmTile }
{ cmCascade }
{ }
{ cm??? range = 140 through 149 }
{ hc??? range = 2400 through 2499 }
{ }
{ ------------------------------- }
hcWindows_Menu = 2400;
hcResize = 2401;
hcZoom = 2402;
hcPrev = 2403;
hcNext = 2404;
hcClose = 2405;
hcTile = 2406;
hcCascade = 2407;
hcWindows_Menu_Items = hcCascade;
{ ------------------------------- }
{ }
{ DESKTOP Menu options. }
{ }
{ cm??? range = 150 through 159 }
{ hc??? range = 2500 through 2599 }
{ }
{ ------------------------------- }
cmLoadDesktop = 150;
cmSaveDesktop = 151;
cmToggleVideo = 152;
hcDesktop_Menu = 2500;
hcLoadDesktop = 2501;
hcSaveDesktop = 2502;
hcToggleVideo = 2503;
hcDesktop_Menu_Items = hcToggleVideo;
{ -------------------------------------------------------------------- }
{ }
{ Miscellaneous commands not directly related to menu options go here. }
{ }
{ -------------------------------------------------------------------- }
hcMisc_Commands = 2600;
hckbShift = 2601;
hckbCtrl = 2602;
hckbAlt = 2603;
hcMisc_Items = hckbAlt;
{ ------------------------------- }
{ }
{ Editor help commands. }
{ }
{ Editor commands that are not }
{ available in a menu go here. }
{ }
{ hc??? range = 2700 through 2799 }
{ }
{ ------------------------------- }
{ Editor Sub Menu Commands }
hcEditor_Commands = 2700;
hcCursor = 2701;
hcDeleting = 2702;